$TestsysIP = '10.1.71.173';
#$TestsysIP = '192.168.64.241';
#$TestsysIP = '194.85.173.161';
#$TestsysIP = '195.209.249.221';
$NetDebug = 0 unless defined $NetDebug;
if ($ARGV[0] eq '-d') { shift @ARGV;  $NetDebug = 1; }
elsif ($ARGV[0] =~ /^-d(\d)$/) { shift @ARGV;  $NetDebug = $1; }
# One second testsys response timeout.
$Timeout = 5.0;
$SendTimeout = $Timeout;

1;
